! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Mon Apr 20 15:33:55 2020
! Working directory    : /n/home08/kbates/Aromatics/SAPRC_edits
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(28) = (1.8E-6)*CFACTOR
  VAR(36) = (2.0E-7)*CFACTOR
  VAR(62) = (1.5E-4)*(0.0E-9)*CFACTOR
  VAR(71) = (0.5E-4)*(0.0E-9)*CFACTOR
  VAR(78) = (0.7E-5)*(5.0E-4)*CFACTOR
  VAR(155) = (3.0E-9)*CFACTOR
  VAR(194) = (5.0E-3)*(5.0E-4)*CFACTOR
  VAR(203) = (7.5E-8)*CFACTOR
  FIX(1) = (1.0E-2)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(367) = 6.3e-11
  RCONST(368) = 5.93e-11
  RCONST(369) = 4.18e-18
  RCONST(824) = 5.6e-11
  RCONST(826) = 9.9206e-11
  RCONST(827) = 1.1574e-11
  RCONST(828) = 3.9684e-12
  RCONST(829) = 3.3068e-13
  RCONST(834) = 1.1574e-05
  RCONST(835) = 1.1574e-05
  RCONST(836) = 1.1574e-05
  RCONST(837) = 1.1574e-05
  RCONST(838) = 1.1574e-05
  RCONST(839) = 1.1574e-05
  RCONST(840) = 1.1574e-05
  RCONST(841) = 1.1574e-05
  RCONST(842) = 1.1574e-05
  RCONST(843) = 1.1574e-05
  RCONST(844) = 1.1574e-05
  RCONST(845) = 1.1574e-05
  RCONST(846) = 1.1574e-05
  RCONST(847) = 1.1574e-05
  RCONST(848) = 1.1574e-05
  RCONST(849) = 1.1574e-05
  RCONST(850) = 1.1574e-05
  RCONST(851) = 1.1574e-05
  RCONST(852) = 1.1574e-05
  RCONST(853) = 1.1574e-05
  RCONST(854) = 1.1574e-05
  RCONST(855) = 1.1574e-05
  RCONST(856) = 1.1574e-05
  RCONST(857) = 1.1574e-05
  RCONST(858) = 1.1574e-05
  RCONST(859) = 1.1574e-05
  RCONST(860) = 1.1574e-05
  RCONST(861) = 1.1574e-05
  RCONST(862) = 1.1574e-05
  RCONST(863) = 1.1574e-05
  RCONST(864) = 1.1574e-05
  RCONST(865) = 1.1574e-05
  RCONST(866) = 1.1574e-05
  RCONST(867) = 1.1574e-05
  RCONST(868) = 1.1574e-05
  RCONST(869) = 1.1574e-05
  RCONST(870) = 1.1574e-05
  RCONST(871) = 1.1574e-05
  RCONST(872) = 1.1574e-05
  RCONST(873) = 1.1574e-05
  RCONST(874) = 1.1574e-05
  RCONST(875) = 1.1574e-05
  RCONST(876) = 1.1574e-05
  RCONST(877) = 1.1574e-05
  RCONST(878) = 1.1574e-05
  RCONST(879) = 1.1574e-05
  RCONST(880) = 1.1574e-05
  RCONST(881) = 1.1574e-05
  RCONST(882) = 1.1574e-05
  RCONST(883) = 1.1574e-05
  RCONST(884) = 1.1574e-05
  RCONST(885) = 1.1574e-05
  RCONST(886) = 1.1574e-05
  RCONST(887) = 1.1574e-05
  RCONST(888) = 1.1574e-05
  RCONST(889) = 1.1574e-05
  RCONST(890) = 1.1574e-05
  RCONST(891) = 1.1574e-05
  RCONST(892) = 1.1574e-05
  RCONST(893) = 1.1574e-05
  RCONST(894) = 1.1574e-05
  RCONST(895) = 1.1574e-05
  RCONST(896) = 1.1574e-05
  RCONST(897) = 1.1574e-05
  RCONST(898) = 1.1574e-05
  RCONST(899) = 1.1574e-05
  RCONST(900) = 1.1574e-05
  RCONST(901) = 1.1574e-05
  RCONST(902) = 1.1574e-05
  RCONST(903) = 1.1574e-05
  RCONST(904) = 1.1574e-05
  RCONST(905) = 1.1574e-05
  RCONST(906) = 1.1574e-05
  RCONST(907) = 1.1574e-05
  RCONST(908) = 1.1574e-05
  RCONST(909) = 1.1574e-05
  RCONST(910) = 1.1574e-05
  RCONST(911) = 1.1574e-05
  RCONST(912) = 1.1574e-05
  RCONST(913) = 1.1574e-05
  RCONST(914) = 1.1574e-05
  RCONST(915) = 1.1574e-05
  RCONST(916) = 1.1574e-05
  RCONST(917) = 1.1574e-05
  RCONST(918) = 1.1574e-05
  RCONST(919) = 1.1574e-05
  RCONST(920) = 1.1574e-05
  RCONST(921) = 1.1574e-05
  RCONST(922) = 1.1574e-05
  RCONST(923) = 1.1574e-05
  RCONST(924) = 1.1574e-05
  RCONST(925) = 1.1574e-05
  RCONST(926) = 1.1574e-05
  RCONST(927) = 1.1574e-05
  RCONST(928) = 1.1574e-05
  RCONST(929) = 1.1574e-05
  RCONST(930) = 1.1574e-05
  RCONST(931) = 1.1574e-05
  RCONST(932) = 1.1574e-05
  RCONST(933) = 1.1574e-05
  RCONST(934) = 1.1574e-05
  RCONST(935) = 1.1574e-05
  RCONST(936) = 1.1574e-05
  RCONST(937) = 1.1574e-05
  RCONST(938) = 1.1574e-05
  RCONST(939) = 1.1574e-05
  RCONST(940) = 1.1574e-05
  RCONST(941) = 1.1574e-05
  RCONST(942) = 1.1574e-05
  RCONST(943) = 1.1574e-05
  RCONST(944) = 1.1574e-05
  RCONST(945) = 1.1574e-05
  RCONST(946) = 1.1574e-05
  RCONST(947) = 1.1574e-05
  RCONST(948) = 1.1574e-05
  RCONST(949) = 1.1574e-05
  RCONST(950) = 1.1574e-05
  RCONST(951) = 1.1574e-05
  RCONST(952) = 1.1574e-05
  RCONST(953) = 1.1574e-05
  RCONST(954) = 1.1574e-05
  RCONST(955) = 1.1574e-05
  RCONST(956) = 1.1574e-05
  RCONST(957) = 1.1574e-05
  RCONST(958) = 1.1574e-05
  RCONST(959) = 1.1574e-05
  RCONST(960) = 1.1574e-05
  RCONST(961) = 1.1574e-05
  RCONST(962) = 1.1574e-05
  RCONST(963) = 1.1574e-05
  RCONST(964) = 1.1574e-05
  RCONST(965) = 1.1574e-05
  RCONST(966) = 1.1574e-05
  RCONST(967) = 1.1574e-05
  RCONST(968) = 1.1574e-05
  RCONST(969) = 1.1574e-05
  RCONST(970) = 1.1574e-05
  RCONST(971) = 1.1574e-05
  RCONST(972) = 1.1574e-05
  RCONST(973) = 1.1574e-05
  RCONST(974) = 1.1574e-05
  RCONST(975) = 1.1574e-05
  RCONST(976) = 1.1574e-05
  RCONST(977) = 1.1574e-05
  RCONST(978) = 1.1574e-05
  RCONST(979) = 1.1574e-05
  RCONST(980) = 1.1574e-05
  RCONST(981) = 1.1574e-05
  RCONST(982) = 1.1574e-05
  RCONST(983) = 1.1574e-05
  RCONST(984) = 1.1574e-05
  RCONST(985) = 1.1574e-05
  RCONST(986) = 1.1574e-05
  RCONST(987) = 1.1574e-05
  RCONST(988) = 1.1574e-05
  RCONST(989) = 1.1574e-05
  RCONST(990) = 1.1574e-05
  RCONST(991) = 1.1574e-05
  RCONST(992) = 1.1574e-05
  RCONST(993) = 1.1574e-05
  RCONST(994) = 1.1574e-05
  RCONST(995) = 1.1574e-05
  RCONST(996) = 1.1574e-05
  RCONST(997) = 1.1574e-05
  RCONST(998) = 1.1574e-05
  RCONST(999) = 1.1574e-05
  RCONST(1000) = 1.1574e-05
  RCONST(1001) = 1.1574e-05
  RCONST(1002) = 1.1574e-05
  RCONST(1003) = 1.1574e-05
  RCONST(1004) = 1.1574e-05
  RCONST(1005) = 1.1574e-05
  RCONST(1006) = 1.1574e-05
  RCONST(1007) = 1.1574e-05
  RCONST(1008) = 1.1574e-05
  RCONST(1009) = 1.1574e-05
  RCONST(1010) = 1.1574e-05
  RCONST(1011) = 1.1574e-05
  RCONST(1012) = 1.1574e-05
  RCONST(1013) = 1.1574e-05
  RCONST(1014) = 1.1574e-05
  RCONST(1015) = 1.1574e-05
  RCONST(1016) = 1.1574e-05
  RCONST(1017) = 1.1574e-05
  RCONST(1018) = 1.1574e-05
  RCONST(1019) = 1.1574e-05
  RCONST(1020) = 1.1574e-05
  RCONST(1021) = 1.1574e-05
  RCONST(1022) = 1.1574e-05
  RCONST(1023) = 1.1574e-05
  RCONST(1024) = 1.1574e-05
  RCONST(1025) = 1.1574e-05
  RCONST(1026) = 1.1574e-05
  RCONST(1027) = 1.1574e-05
  RCONST(1028) = 1.1574e-05
  RCONST(1029) = 1.1574e-05
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 707400
        DT = 60.0
        TEMP = 298

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

